home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / nrpas13.zip / PREDIC.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  787b  |  30 lines

  1. PROCEDURE predic(data: gldarray; ndata: integer; d: glnparray;
  2.       npoles: integer; VAR future: glnfarray; nfut: integer);
  3. (* Programs using routine PREDIC must define the types
  4. TYPE
  5.    gldarray = ARRAY [1..ndata] OF real;
  6.    glnparray = ARRAY [1..npoles] OF real;
  7.    glnfarray = ARRAY [1..nfut] OF real;
  8. in the main routine. *)
  9. VAR
  10.    k,j: integer;
  11.    sum,discrp: real;
  12.    reg: glnparray;
  13. BEGIN
  14.    FOR j := 1 TO npoles DO BEGIN
  15.       reg[j] := data[ndata+1-j]
  16.    END;
  17.    FOR j := 1 TO nfut DO BEGIN
  18.       discrp := 0.0;
  19.       sum := discrp;
  20.       FOR k := 1 TO npoles DO BEGIN
  21.          sum := sum+d[k]*reg[k]
  22.       END;
  23.       FOR k := npoles DOWNTO 2 DO BEGIN
  24.          reg[k] := reg[k-1]
  25.       END;
  26.       reg[1] := sum;
  27.       future[j] := sum
  28.    END
  29. END;
  30.